(until(= a(readall:readline)p)(map[reclist[~push _ p](= a `(,@cdr.a,a.0))]a)(prall(most[sum + _]p)""" ")(prn))