mirror of
https://github.com/urbit/shrub.git
synced 2024-12-15 04:22:48 +03:00
35 lines
638 B
Plaintext
35 lines
638 B
Plaintext
::
|
|
:::: /hoon/core/zong/mar
|
|
::
|
|
/? 314
|
|
/- zong
|
|
!:
|
|
|_ zog=zong
|
|
::
|
|
++ grab :: convert from
|
|
|%
|
|
++ noun zong :: clam from %noun
|
|
--
|
|
++ grow
|
|
|%
|
|
++ json
|
|
=. p.zog
|
|
(lsh 6 1 (rsh 6 1 p.zog)) :: round off subsecond
|
|
%- jobe
|
|
:~
|
|
[%time (jape <p.zog>)]
|
|
[%auth (jape <q.zog>)]
|
|
:- %mess
|
|
%+ joba -.r.zog
|
|
?- -.r.zog
|
|
%do
|
|
[%s p.r.zog]
|
|
%say
|
|
[%s p.r.zog]
|
|
%exp
|
|
[%a [%s p.r.zog] (turn (wash 0^80 q.r.zog) jape)]
|
|
==
|
|
==
|
|
--
|
|
--
|