(map[pr:+"
1"(map[+]cddr.l)1](cddr:= l(n-of(read)pr.1)))l.1(pr:+"
"l)