::  Accepts any atom from dojo and uses it
::  as the end limit for fizzbuzz
::
::::  /hoon/fizz/examples/app
  ::
/?    310
!:
|_  {bowl state/$~}
++  poke-atom
  |=  end/@
  ^-  {(list) _+>.$}
  =/  count  1
  ~&
    |-  ^-  (list tape)
    ?:  =(end count)  ~
    :-
    ?:  =(0 (mod count 15))
      "fizzbuzz"
    ?:  =(0 (mod count 5))
      "fizz"
    ?:  =(0 (mod count 3))
      "buzz"
    (pave !>(count))
    $(count (add 1 count))
  [~ +>.$]
--