(port-map(^l(print(apply *(map(^t(apply +(map x->number(#0=string-split t"+"))))(#0##"~l""*")))))read)