updates +moon to produce an error message instead of a stack trace

...when run from a moon or comet

also replaces binary math with `++clan`,
allows ~zod to ticket,
and uses %tang/%leaf instead of %noun

gen/moon.hoon

@@ -10,8 +10,10 @@
         $~
         $~
     ==
-:-  %noun
-?>  =(1 (met 5 p.bec))
+:-  %tang  :_  ~  :-  %leaf
+=+  ran=(clan p.bec)
+?:  ?=({?($earl $pawn)} ran)
+  "can't create a moon from a {?:(?=($earl ran) "moon" "comet")}"
 =+  mon=(mix (lsh 5 1 (end 5 1 eny)) p.bec)
 =+  tic=.^(@ /a/(scot %p p.bec)/tick/(scot %da now)/(scot %p mon))
 "moon: {<`@p`mon>}; ticket: {<`@p`tic>}"