odd
m2
enumerate
transpose
extract-array
compress
m:
    97
    divmod
    3
    /
    pair
    show-comma
    "("
    right-cons
    ")"
    catenate #(list+list)
}
w( "No one" )
logical-or
w( " is sus\n" )
cartesian-product