Task

Draw a Cantor set.



See details at this Wikipedia webpage:   Cantor set

include ..\Utilitys.pmt
 
5 >ps
3 tps 1 - power var w
"#" 1 get nip w repeat var line
 
ps> for
    3 swap 1 - power
    w over / int var step
    true >ps
    for var j
    	tps not if
            step for var k
            	line 32 j 1 - step * k + set var line
            endfor
        endif
        ps> not >ps
    endfor
    cps
    line ?
endfor