removes %jael west/coop printfs
:: [%vent ~]
::
%vent
- ~& %west-vent
$(tac [%vent our])
::
::
=* wir t.tea
?- hin
[%a %woot *]
- ?~ q.hin ~&(%coop-fine +>.$)
+ ?~ q.hin +>.$
?~ u.q.hin ~&(%ares-fine +>.$)
~& [%woot-bad p.u.u.q.hin]
~_ q.u.u.q.hin
