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

sage

>>2
Hello, ass biter.
I have more threads on here that I haven't signed than threads that I have.
I bet you can't pick them out.

good ID get

>>4
Oh, it's you.
I have no idea what to do with a genuinely crazy person,
but you'd probably be happier anywhere else on 4chan.
In here we mostly just practice our buzzwords and sharpen our flame war swords. But, since you're here:
Ot4sfdhOexfP63F/PVk2qe+sLGEINEUQbCUzHyFr8Y1CqJXn5pNpuKoBaC1I4sMU

Is that doing anything for you?

^{_{Ot4sfdhOexfP63F/PVk2qe+sLGEINEUQbCUzHyFr8Y1CqJXn5pN}}puKoBaC^_1I4sMU
AHAH
http://starbase.jpl.nasa.gov/archive/clem1-l_e_y-a_b_u_h_l_n-2-edr-v1.0/cl_0072/lun310/llxxxxxx/llxxxxxf/lla0764f.310

>>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^

>>7
AH! now i have work for a week :D

I'm beginning to understand the ID guy.
He's sexually attracted to random characters.
And he comes in here because program code looks like random characters.
I can't imagine what the shapelier BBCODE is doing to him.

>>7
is a valid perl6 program

>>1
Ugly