v( "o\n?" )
init
    length
m1
    +
b1
scan
uppercase-alphabet
show-space
6
times #(list)
select