Haskell_mini_pattern