Adding beginnings of haskell version

These are the tokeniser functions