(+ #0=(set'r(read))(loop(princ r)(pprint(+ r #0#))(terpri)))