::
::::  /hoon/core/zing/mar
  ::
/?  314
/-  zong
|_  zos=(list zong)
::
++  grab                                                ::  convert from
  |%
  ++  noun  (list zong)                                 ::  clam from %noun
  --
::
++  grow                                                ::  convert to
  |%
  ++  hymn                                              ::  convert to %hymn
    ^-  manx
    ;html
      ;head
        ;title: Zongs!
      ==
      ;body   ;table
        ;*  %+  turn  (flop zos)
        |=  zog=zong
        =.  p.zog  (lsh 6 1 (rsh 6 1 p.zog))      ::  round off subsecond
        ;tr   ;td: {<p.zog>}
              ;td: {<q.zog>}
              ;+  ?-  -.r.zog
                      %do
                    ;td: {(trip p.r.zog)}
                      %say
                    ;td: & {(trip p.r.zog)}
                      %exp
                    ;td
                      ;code:"{(trip p.r.zog)}"
                      ; \a0 {~(ram re q.r.zog)}
        ==          ==
      ==          ==
    ==          ==
  ++  html
    (crip (xmlt | hymn ~))
  ++  mime
    [/text/html (taco html)]
  --
--