Co zwraca następująca funkcja:
functionZagadka( n : integer ) : integer
if n = 0 thenZagadka <- 0
else Zagadka <- n mod 2 + Zagadka( n div 2 )
endfunction