camelCase by *yuko*

var c:char;n:word;begin repeat n:=ord((c>^~)&(c<^!))*32;read(c);if c=^`then n:=42;write(chr(ord(c)xor n))until 0>0end.

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page