p:printf;f:"~{~a~^ ~}
";for a in read_nested_list("/dev/fd/0")do(p(?t,f,a),while a[1]+a[4]>0 do p(?t,f,a:abs(a-endcons(a[1],rest(a)))),newline());