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