@@ -0,0 +1,86 @@
5+Used for pretty printing.
10+ ++ wine $| ?(%noun %path %tank %void %wall %wool %yarn)
11+ [%list p=term q=wine] ::
12+ [%pear p=term q=@] ::
13+ [%pick p=(list wine)] ::
14+ [%plot p=(list wine)] ::
16+ [%tree p=term q=wine] ::
17+ [%unit p=term q=wine] ::
23+See also: [`++calf`]()
25+ ~zod/try=> ~(dole ut p:!>(*@tas))
26+ [p={} q=[%atom p=%tas]]
27+ ~zod/try=> `wine`q:~(dole ut p:!>(*@tas))
30+ ~zod/try=> ~(dole ut p:!>(*path))
38+ [%plot p=~[[%face p=%i q=[%atom p=%ta]] [%face p=%t q=[%stop p=1]]]]
45+ ~zod/try=> `wine`q:~(dole ut p:!>(*path))
48+ ~zod/try=> ~(dole ut p:!>(*(map time cord)))
63+ p=~[[%face p=%p q=[%atom p=%da]] [%face p=%q q=[%atom p=%t]]]
66+ [%face p=%l q=[%stop p=1]]
67+ [%face p=%r q=[%stop p=1]]
77+ q=[%plot p=~[[%face p=%p q=[%atom p=%da]] [%face p=%q q=[%atom p=%t]]]]
80+ ~zod/try=> `wine`q:~(dole ut p:!>(*(map time cord)))
83+ q=[%plot p=~[[%face p=%p q=[%atom p=%da]] [%face p=%q q=[%atom p=%t]]]]