-- Construct the initial state of the shunting-yard from a given input list.
initial :: [SExpr a] -> Shunt a
initial ts = S ts [] [[]] Initial
initial :: [SExpr a] -> Shunt a
initial ts = S ts [] [[]] Initial
initial ts = S ts [] [[]] Initial