Hoon 101: Assignment 4

::
::  Running this gate with an input of 1.000 results in 233.168
::
|=  num=@ud
=/  sum=@ud  0
=/  cur=@ud  1
|-
?:  =(num cur)  sum
?:  =(0 (mod cur 3))
    $(sum (add sum cur), cur +(cur))
?:  =(0 (mod cur 5))
    $(sum (add sum cur), cur +(cur))
$(cur +(cur))