say [R~] map(*[1],sort [Z] lines,<A B C>)X"
"