path: root/2022/01/first.b98

00p10p;max in 0,0, current total in 1,0;v
>#;~:a-#v_$v@,a.g00; parses a number    >
^+*a\-0'<  : if not an empty line, add to total and read another number
^   p01+g01_v
^  vp00<    >1v
^  >v $wg00:g0<
^p01< $<