Added ignore file.
Rewrite in Haskell