Haskell で infix 持ちの構文をパースする