fix mismatch in mull (tscm again)
{$tsbn *}
=+ lem=$(gen p.gen, gol %noun)
$(gen q.gen, sut p.lem, dox q.lem)
+ ::
+ {$tscm *}
+ =/ boc (busk p.gen)
+ =/ nuf (busk(sut dox) p.gen)
+ $(gen q.gen, sut boc, dox nuf)
::
{$wtcl *}
=+ nor=$(gen p.gen, gol bool)
