fun readStr () =
    let
        fun scan reader stream = SOME (StringCvt.splitl (not o Char.isSpace) reader (StringCvt.skipWS reader stream))
    in
        valOf (TextIO.scanStream scan TextIO.stdIn)
    end




val () =
    let
        val s = readStr ()
        val dropped = Substring.dropl (fn ch => ch <> #"#") (Substring.full s)
        val sliced = Substring.slice (dropped, 1, NONE)
        val taked = Substring.takel (fn ch => ch <> #"#") sliced
        val ans = Substring.string taked
    in
        print (ans ^ "\n")
    end