expand text by m.ukai

let p,q,s,n=print_char,String.iter,read_line(),read_int()-1;;for i=n to n*2do
q(fun c->p c;for j=2to n do p[|' ';c|].(i/n*n/i)done;p c)s;p '
'done

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

download

return to the top page