--- a/progs/fun/fun_tokens.sc	Tue Oct 19 22:51:51 2021 +0100
+++ b/progs/fun/fun_tokens.sc	Wed Oct 20 00:06:58 2021 +0100
@@ -198,7 +198,7 @@
 val KEYWORD : Rexp = "if" | "then" | "else" | "write" | "def"
 val SEMI: Rexp = ";"
 val OP: Rexp = "=" | "==" | "-" | "+" | "*" | "!=" | "<" | ">" | "<=" | ">=" | "%" | "/"
-val WHITESPACE = PLUS(" " | "\n" | "\t")
+val WHITESPACE = PLUS(" " | "\n" | "\t" | "\r")
 val RPAREN: Rexp = ")"
 val LPAREN: Rexp = "("
 val COMMA: Rexp = ","