((^,L(port-map(.$(rec'l(and(any .,l)(print((#/.*\)/(string-join(map(^s(if,s(format"(~va)"(-((rec'l(if,l(fold + 2(map .'l))1))s)2):)s))l)""))))'(append-map(^e(if,e`(" ",@e" ")(L e)))l)))L)read))list? list)