46b.it written in Haskell