now compiles and works
Solve 18 in haskell