Only parse one factor after '√'

kalk/src/parser.rs

@@ -504,7 +504,11 @@ fn parse_identifier(context: &mut Context) -> Result<Expr, CalcError> {
     {
         // If there is a function with this name, parse it as a function, with the next token as the argument.
         if context.symbol_table.contains_fn(&identifier.pure_name) {
-            let parameter = parse_factor(context)?;
+            let parameter = if identifier.full_name == "√" {
+                parse_exponent(context)?
+            } else {
+                parse_factor(context)?
+            };
             return Ok(Expr::FnCall(identifier, vec![parameter]));
         }
     }