call =
  do { results <- tuple var
     ; lexeme (char' '=')
     ; f <- identifier
     ; params <- tuple expr
     ; succ   <- goto
     ; return $ Call results f params succ
     }
 <?> "call"
call =
  do { results <- tuple var
     ; lexeme (char' '=')
     ; f <- identifier
     ; params <- tuple expr
     ; succ   <- goto
     ; return $ Call results f params succ
     }
 <?> "call"
call =
  do { results <- tuple var
     ; lexeme (char' '=')
     ; f <- identifier
     ; params <- tuple expr
     ; succ   <- goto
     ; return $ Call results f params succ
     }
 <?> "call"