electronic dice by uochan

(while 1(do(some #(apply println(seq({\a"000"\b"001"\c"010"\d"100"\e"101"}%)))(nth'("aca""bad""dcb""eae""ece""eee")(-(read)1)))(prn))) 

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

download

return to the top page