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