Make Scheme look more like C

FYI, I just saw this SIOD extension:

Extension: parser_pratt
Alternative syntax interface. Just the tokenizer is included here. The parser is provided by parser_pratt.scm and pratt.scm.
(pratt_read_token buffer token-table stream)
built-in subroutine of 3 arguments.
Example, hello.scm
#!/usr/local/bin/siod -v01,-m2 -*-mode:text;parser:pratt-*-
main() :=
{writes(nil,"Hello Scheme World.\n");
 fflush(nil);
 writes(nil,"fib(20) = ",fib(20),"\n");
}
$

fib(x) := if x < 2 then x else fib(x-1) + fib(x-2)
$