baby steps

1.mars

!:
|_  [hid=hide ~]
++  poke-mars-args
  |=  [ost=bone you=ship *]
  :_  +>.$
  :-  [ost %pass / %g %cide %$]
  :-  [ost %give %nice ~]
  %+  turn  (~(tap by sup.hid))
  |=  [ost=bone *]
  =-  [ost %give %rush %tang -]
  ~[leaf/"hello mars!"]
++  peer
  |=(* `+>)
--

2.planet

:: display "hello $ARG!"
:: :planet "foo"
!:
|_  [hid=hide ~]
++  poke-planet-args
  |=  [ost=bone you=ship planet=tape *]
  :_  +>.$
  :-  [ost %pass / %g %cide %$]
  :-  [ost %give %nice ~]
  %+  turn  (~(tap by sup.hid))
  |=  [ost=bone *]
  =-  [ost %give %rush %tang -]
  ~[leaf/"hello {planet}!"]
++  peer
  |=(* `+>)
--
~                 

3.boom

:: counts douwn and boom!
!:
|_  [hid=hide ~]
++  poke-boom-args
  |=  [ost=bone you=ship *]
  :_  +>.$
  :-  [ost %pass / %g %cide %$]
  :*  [ost %give %nice ~]
      %+  turn  (~(tap by sup.hid))
      |=  [ost=bone *]
      =-  [ost %give %rush %tang -]
      %-  flop  ^-  (list tank)  %-  limo
      =+  a=10
      |-
      ?:  =(a 0)
        ~[leaf/"BOOM!!!"]
      :_  $(a (dec a))
      leaf/"{(trip ?:(=((mod a 2) 0) 'tick' 'tock'))} - {(scow %ud a)}"
   ==
++  peer
  |=(* `+>)
--

4.fib

:: display fib sequence up to arg with steps
:: painfully suboptimal but that's irrelevant
:: :fib 10
!:
|_  [hid=hide ~]
++  poke-fib-args
  |=  [ost=bone you=ship upto=@ud *]
  :_  +>.$
  :-  [ost %pass ~ %g %cide ~]
  :*  [ost %give %nice ~]
      %+  turn  (~(tap by sup.hid))
      |=  [ost=bone *]
      =-  [ost %give %rush %tang -]
      %-  flop  ^-  (list tank)  %-  limo
      =+  a=1
      |-  
      ?:  (gth a upto)  ~
      :_  $(a +(a))
      leaf/(scow %ud (fib a))
   ==
++  fib
  |=  a=@ud
  |-
  ?:  (lte a 2)  1
  (add $(a (sub a 1)) $(a (sub a 2)))
++  peer
  |=(* `+>)
--

5.hell

:: lazy hello mars, is it bad? if so then why?
|_  [hid=hide ~]
++  poke-hell-args
  |=  [ost=bone *]
  :_  +>.$  
  :-  [ost %pass / %g %cide %$]
  :-  [ost %pass / %d %flog %text "mars is weird sometimes"]
  ~
--

6.fibo

:: failed attempt at fib sequence where new numbers would be displayed as soon
:: as they are computed :-( I know I could just use ~& but that's cheating
:: :fibo 25
|%
++  sign
  $%  $:  %g
  $%  [%nice ~]
      [%mean p=ares]
      [%mean p=@ud]
  ==  ==  ==
--
::
!:
|_  [hid=hide ~]
++  poke-fibo-args
  |=  [ost=bone sip=ship upto=@ud *]
  :_  +>.$
  :-  [ost %give %nice ~]
  ::  XX couldnt flop it, probably type issue, tried (list move) but without luck
  =+  a=upto
  |-
  ?:  (lte a 0)  ~
  :_  $(a (dec a))
  [ost %pass / %g %mess [sip /fibo] sip %foo !>(a)]
::
++  poke-foo
  |=  [ost=bone sip=ship a=@ud]
  :_  +>.$
  :-  [ost %pass / %d %flog %text (scow %ud (fib a))]
  :-  [ost %give %nice ~]
  ~
::
++  fib
  |=  a=@ud
  |-
  ?:  (lte a 2)  1
  (add $(a (sub a 1)) $(a (sub a 2)))
::
++  pour
  |=  [ost=bone *]
  :_  +>.$
  :-  [ost %pass / %g %cide %$]
  ~
::
++  peer
  |=  *  `+>
--

7.bomb

:: display some texts with time intervals between them
:: :bomb
|%
++  axle
  $%  [%0 tic=@ud wait=@dr]
  ==
--
::
!:
|_  [hid=hide vat=axle]
++  poke-bomb-args
  |=  [ost=bone sip=ship *]
  =.  tic.vat  10
  =.  wait.vat  ~s5
  :_  +>.$
  :-  [ost %give %nice ~]
  :-  [ost %pass / %d %flog %text "[suspicious box appears out of nowhere]"]
  :-  [0 %pass /time %t %wait (add wait.vat lat.hid)]
  ~
::
++  pour
  |=  [ost=bone pax=path x=*]
  =.  tic.vat  (dec tic.vat)
  =.  wait.vat  ^-(@dr (div `@ud`wait.vat 2))
  :_  +>.$
  ?:  (lte tic.vat 1)
    :-  [ost %pass / %d %flog %text "How did you do that Nock?!"]
    :-  [ost %pass / %g %cide %$]  ~
  :-  [ost %pass / %d %flog %text ?:(=((mod tic.vat 2) 1) "tik" "tok")]
  :-  [0 %pass /time %t %wait (add wait.vat lat.hid)]  ~
::
++  peer
  |=  *  `+>
--

8.xmas

:: draw a christmas tree
!:
|_  [hid=hide ~]
++  poke-xmas-args
  |=  [ost=bone sip=ship *]
  :_  +>
  =+  w=11
  =+  a=w
  |-
  ?:  (lth a 1)  ~
  :_  $(a (dec a))
  =-  [ost %pass / %d %flog %text -]
  ?:  =(a w)  (weld (reap (dec w) ' ') "| |")
  %+  weld
  %+  reap  +((sub w a))  ' '
  ?:  =(a 1)  "*"
  %+  reap  (dec (mul a 2))  '^'
--

1.mars with 2+2

!:
|_ [hid=hide ~]
++ poke-four-args
|= [ost=bone you=ship *]
:_ +>.$
:- [ost %pass / %g %cide %$]
:- [ost %give %nice ~]
%+ turn (~(tap by sup.hid))
|= [ost=bone *]
=- [ost %give %rush %tang -]
~[leaf/"hello mars! {<(add 2 2)>}"]
++ peer
|=(* `+>)
--