until[eof?][pr -first cascade 10[map[?-first se ?rest 0]?]se 0 rl]bye