100
range1
map-show
w( ".5" )
inits
cartesian-product
3
drop
5
step
m:
    ( "% equals " )
    counter
    show
    w( " question" "completed." )
    @0
    "s"
    show-space
    take-end
    join
    show-line
    show-line