Infix to postfix notation in Haskell (Shunting-yard algorithm)