easy 16 in haskell, regular expressions