program :: Parser Term
program = foldr1 (BinOp Seq) <$>
  (spaces *> sepBy1 expr (spaces *> char ';' <* spaces) <* eof)
program :: Parser Term
program = foldr1 (BinOp Seq) <$>
  (spaces *> sepBy1 expr (spaces *> char ';' <* spaces) <* eof)
program = foldr1 (BinOp Seq) <$>
  (spaces *> sepBy1 expr (spaces *> char ';' <* spaces) <* eof)