function happy(x)
set y = x
set lasty = 0
set found = " "
while y !=  1 and not (found regex "\s".y."\s")
set found = found . y . " "
set m = 0
while y  > 0
set digit = y mod 10
set m = m + digit * digit
set y = (y - digit) / 10
end while
set y = format(m,"%1d")
end while
set found = found . y . " "
if y = 1
set result = 1
else
set result = 0
end if
end function

set c = 0
set i = 1
while c < 8 and i < 100
if happy(i)
echo i
set c = c + 1
end if
set i = i + 1
end while