Added some haskell and fantom code