let n = stdin.ReadLine () |> int let mutable ans = "" let arr = [| for _ in 0..n-1 -> match stdin.ReadLine().Split " " with | [|"0"; s|] -> ans <- ans + s | [|_ ; s|] -> ans <- s + ans |] // let write: (int*string)*(int*string) -> int*string = function // | (_, prev), (0, s) -> (0, prev + s) // | (_, prev), (1, s) -> (1, s + prev) // // let writeWrap a b = // write (a, b) printfn "%s" ans // Array.reduce writeWrap arr |> snd |> printfn "%s"