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