((^s(while(#/\d+(?=:\n|:$)/s)=> m(print(m))(set! s(regexp-replace-all #`" *\\b,(m)\\b"s""))))(port->string(current-input-port)))