urbit/try/bin/memory.hoon
2013-09-28 13:21:18 -07:00

8 lines
96 B
Plaintext

|= *
|= *
=+ a=1
=| b=(list)
|- ^- bowl
?: =(0 a) [~ ~]
$(a +(a), b [(bex (bex 13)) b])