ちょっと分かってきた module paren import StdEnv import Parsers Start # res = parse wholeparse ['()((()*1'] "" "" = case res of Succ r = hd r Err a b pos = abort (foldl printPos "error" pos) with printPos s (At pos) = s +++ " at " +++ (toSt…