((rec,l(apply print l),(map abs(map -(cdr l)l)))(map(^_(-(read-byte)48))(make-list 10)))