\START92\
\COMMENT=Counts the bits set to 1 in v
\NAME=cntbits
\FILE=day4.cntbits.92f
(v)
Func
Local r,t
0\->\r
While v>0
 v/2\->\t
 floor(t)\->\v
 If t\!=\v Then
  r+1\->\r
 EndIf
EndWhile
EndFunc

\STOP92\