procedure noncubesquares() #: filter for squares that aren't cubes
cu := create mthpower(3)
c := @cu
every s := mthpower(2) do{
if s > c then c := @cu
if s == c then next
suspend s
}
end