(= n(read)s(cut(drain:readc)1 -1))(for i 1 n(on c s(pr:+ c(n-of(- n 2)(if(< 1 i n)" "c))c))(prn))