include "NSLog.incl"

local fn IsHappy( num as NSUInteger ) as NSUInteger
  NSUInteger i, happy = 0, count = 0

  while ( count < 50 ) and ( happy != 1 )
    CFStringRef numStr = str( num )
    count++ : happy = 0
    for i = 1 to len( numStr )
      happy = happy + fn StringIntegerValue( mid( numStr, i, 1 ) ) ^ 2
    next
    num = happy
  wend
end fn = num

void local fn HappyNumbers
  NSUInteger i, count = 0

  for i = 1 to 100
    if ( fn IsHappy(i) == 1 )
      count++
      NSLog( @"%2lu. %2lu is a happy number", count, i )
      if count == 8 then exit fn
    end if
  next
end fn

fn HappyNumbers

HandleEvents