.k from
.def from steve
if not eq <from> n; takefile ~maj/bridge <from> t:bridge
bcpl t:bridge mc=pdp11 to t:code
o:pdp give t:code from t:code swap


