( "-" "rwx" )
3
times #(list)
cartesian-product
fold-product
ascii-digits
8
take
4
repeat-product
zip
m:
    ( " is -" )
    join
    new-line