fastfunc isprim num .
   i = 2
   while i <= sqrt num
      if num mod i = 0
         return 0
      .
      i += 1
   .
   return 1
.
for i = 2 to 5499
   if isprim i = 1 and isprim (i + 2) = 1 and isprim (i + 6) = 1
      write "(" & i & " " & i + 2 & " " & i + 6 & ") "
   .
.
