Toy-compiler written in Haskell