((rec,l(apply print l),(map abs(map -(cdr l)l)))(map(^_(-(read-byte)48))(make-list 10)))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page