Morse decode by ksk

let rec(!)x=print_char"  temnaiogkdwrus  qzycxbjp.l fvh KSK,".[x mod 40];1and($)u?(c=input_byte stdin-45)x=c*c<2&u$x*2+c;!x<c&u$1;!1$1;;1$1

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

download

return to the top page