/-    *radio
!:
::::
  ::
|_  [hide ~]
++  peek  
  |=  [@ pax=path]
::   ?:  |
::     radio-report/(report grams/[7 "foo" ~])
  =+  :+  dat=(trip '{ping: {party:"rom", presence:"talk"}}')
          =-  dat2=(trip -)
          '''
          { publish:
            [{  serial: 
              "0vs.tteei.qlhhr.v09gs.s3iml.7him6.2injj.uiiu6.hg990.fha70.cqdtm",
                statement:
              { now: Date.now(),
                speech:
                { say: "Hello world"
                }
              },
                audience:
              { "~zod/rume": "received",
                "twitter/_urbit": "pending"
              }
            }]
          }
          '''
      ^=  js
      %-  trip
      '''
      function come(a){
        urb.send({
          appl: 'radio-test',
          mark: 'radio-command',
          data: a
        })
      }
      '''
  :-  %hymn
  ^-  manx
  ;html
    ;head
      ;script(src "/gen/main/lib/urb.js");
      ;script: {js}
      ;script: dat = {dat2}
    ==
    ;body:button(onclick "come(dat)"):"Ping"
  ==
++  poke-radio-command
  |=  [ost=bone ship com=command]
  ~&  got/com
  [[ost %give /nice]~ +>]
--