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