#[],stdin upToEnd do:[:c|(C:=c)<65or:[C:=C\\32//14* -26+C+13].C asCharacter display]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page