Count diamonds level 2 by xsd

let rec(!)?(c=input_char stdin)k=c='-'&k>0&()=Printf.printf"%d
"((k-k*2mod 5*8)/5)& !0;c='*'& !(k+1);!k;;!0

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

download

return top