anarchy golf - the source code

Two Dice of A sides by user

set i [set j 0];while {[incr i]<100} {incr j [expr [lsearch -exact {0 1 3 5 7 9 11 33 55 77 99} $i]>0];puts "N=$i,A=$j"}

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