2014-07-29 03:02:28 +04:00
|
|
|
::
|
2014-10-08 23:06:40 +04:00
|
|
|
:::: /hoon/core/zong/mar
|
2014-07-29 03:02:28 +04:00
|
|
|
::
|
|
|
|
|
/? 314
|
|
|
|
|
/- zong
|
2014-11-11 22:55:28 +03:00
|
|
|
!:
|
2014-07-29 03:02:28 +04:00
|
|
|
|_ zog=zong
|
|
|
|
|
::
|
|
|
|
|
++ grab :: convert from
|
|
|
|
|
|%
|
2014-10-08 23:06:40 +04:00
|
|
|
++ noun zong :: clam from %noun
|
2014-07-29 03:02:28 +04:00
|
|
|
--
|
2014-11-11 22:55:28 +03:00
|
|
|
++ 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)]
|
|
|
|
|
==
|
|
|
|
|
==
|
|
|
|
|
--
|
2014-07-29 03:02:28 +04:00
|
|
|
--
|
