open Culr let () = Pipes.read_all Env.get_colours Env.get_parser