electronic dice by ksk

let rec(!)?(n=read_int())p=for i=1to 9do
p"10".[133738452 lsr(abs(5-i)*6+n)mod 2];p" 
".[i/3*3/i]done;p '
';!p;;!print_char

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

download

return to the top page