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)
$

>>6
��������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������������<���<���>���<���"���>���������������������"���.���4���>���T���r���・��ﾉ���ﾍ���$<��,<��s<��・��・��2>��->��R>��・��・��q>��・��・��・��y>��]>��D>��・��">��ﾑ<��\<��k<��a<��)<��・�����ﾗ���ｬ���・��・��・��b���s���c���S���T���C���L���@���A���2���5���$���5���(���(���������%��������������������������������� ���
���
������ ���������    ���
��� ��� ��� ��������� ���>���������������������������������
������    ����������
��� ��� ���>��� ���"���>������������������������������������������<�����������������������������������������������������������������������������������"���������������������������������������������������������������������������������������������������������������������������������������<���>���"����������>���l<��isx|ホv浮・lfdf`_s{rf苑z・獲s`mbcbhiaowlioigk^q^j`e`ddffgdddadccabgmhgiefncca_cfcaglm{zygshg^afi`acixqlpmpqhbddj`_enjgjmj・mnhbec]diwgpnwltlcgceafbskknvreembcgd`c_mejqonhgof^qdcd`eegokqdkb___ijb]bifhfihead^`fec_^cdebyshbb\ab]\_\ace``kdbZ_`dcbijgfmimjiae^a服寇怛ｵ丁嚼鎌又・捉攝刹・履悚走ｲ､ｬ髪註泱泱ｦ劑柾嚼丱囀ｱ撫・ｴ｡鮒卵椡ｪ､・孱､・・丁・將ｲΨ答桿ｧ・｣葡汚悚萩荒剋準私・旧蕪ч℡盗・》feel`bekhlljlhtdjo荏dvZnkoc_・mxy詰循jd副怐npafh[jjlokm{hhjhlcgnＹqcpmmwk_kdzslh吠\ji硬`〒nb]`Z\`i_V_ek`ha`j_mSdfg^cgeXdy{\c\^QoYfX__i_nfYgf`af_ujrmf]dk_kimqobptヌ・ｭd^^Phwmnbar^`{bh^cm・ix|冖yxelX[cbpdvxｲrf_k\jjkajZcl^`Wbliev]`b^Xf]LdWYvhXYVh》dXbcgYbeorzXlY憩V・jl_i|X\g・phaｧdUij・i･yya`of~uaWf`ge\U^a~毆bmb伺ｳ]tY^fcbY鴫撲‖Rl恵c]L]WnXc^[\uQZbfeRYWS\QU\bW_､lWU_v{r]\U^]zrjh^fhtt^wgl`_amhs^ntb`《\`dY^viZdv俊_h\a[・|bdedyicWdkｱ・eiyk`X}pyc[ne{e_fb[l蕨j`eVqd`Xe^bwV`[_xablZ]\\ZchnQUa^w]J^d]`Y}Ze[egaXb^acfoi\dsyﾗ`ca・rgPa乙uha~m]c耽gtalb[ohW^\ea}ut{ｵ・ｱ・}l[_t・r^j學if[vuc・tcoボWZX^Vb`]YU\kaS話bWYcLYW[M[W~s_Yd\\_`\rpXb`i^[glilkdΖax救術xrle\q`qUZejfl\`jyj_gasis_evqvyr・wмngh^hｫ形pセ・}・ZeｲznietT^