record entry(value, i, j)

procedure signaseq(x, limit)
   local result, i, j 

   /limit := 100

   result := []

   every j := 1 to limit do 
      every i := 1 to limit do
         put(result, entry(i + j * x, i, j))

   return sortf(result, 1)

end