open Tokeniser_interp

let q = ref []
let readall () =
    try
        while true do
            q := input_line stdin :: !q
        done
    with
        End_of_file -> ();;

readall();;
print_string "[";;
print_string (printTokenised (tokenise (String.concat "\n" (List.rev !q))));;
print_string "]";;
flush stdout