((= r[if(apply prn _)(r:map abs:- cdr._ _)])(n-of 10(-(readb)48)))