more Bats Challenge

Haskell