ret =
  do { lexeme (reserved "ret")
     ; results <- tuple expr
     ; return $ Return results
     }
 <?> "ret"
ret =
  do { lexeme (reserved "ret")
     ; results <- tuple expr
     ; return $ Return results
     }
 <?> "ret"
ret =
  do { lexeme (reserved "ret")
     ; results <- tuple expr
     ; return $ Return results
     }
 <?> "ret"