:: Hoon School - Week 2
:: ~bannum-magtus || s@p7.co.nz
::
|=  a=*                    :: take in any noun
^-  tape                   :: explicitly return a tape
%+  weld                   :: weld some strings to reduce repitition
  "input is "              ::
?^  a                      :: first branch, test whether a is a cell
  "a cell"                 ::
=- (weld - " atom")        :: attach a block to the head of the subject
?:  =((mod a 2) 0)         :: mod is safe because we know a isnt a cell
  "an even"                ::
"an odd"                   ::