-- maps a function over a list
  -- and concatenates the results
  squishMap :: (a -> [b]) -> [a] -> [b]
  squishMap _ [] = []
squishMap :: (a -> [b]) -> [a] -> [b]
squishMap _ [] = []
squishMap _ [] = []