Just random haskell stuff