A console block game - first exercise in Haskell