Restore the dontjo +prep arm
--
::
++ prep
- |= old=*
- ^- [(list move) _..prep]
- [~ ..prep]
-
-:: =+ session-4==+(*session _-(lib *(list), sur *(list)))
-:: =+ session-1==+(*session-4 _-(poy *(unit)))
-:: =+ session-0==+(*session-1 _[_say syd=desk * _|2.-])
-:: :: ,_`..prep
-:: =+ ^= hoze
-:: $% {$0 p/(map bone session-0)}
-:: {$1 p/(map bone session-1)}
-:: {$2 p/(map bone session-1)}
-:: {$3 p/(map bone session-4)}
-:: {$4 p/@ q/(map bone session-4)}
-:: ==
-:: |= old/(unit ?(house hoze)) ^+ [~ ..prep]
-:: ?~ old `..prep
-:: ?+ -.u.old !!
-:: $4 $(-.u.old %5, q.u.old (~(run by q.u.old) |=(session-4 +<(sur ~, lib ~))))
-:: $5 `..prep(+<+ u.old)
-:: ==
+ =+ session-4==+(*session _-(lib *(list), sur *(list)))
+ =+ session-1==+(*session-4 _-(poy *(unit)))
+ =+ session-0==+(*session-1 _[_say syd=desk * _|2.-])
+ :: ,_`..prep
+ =+ ^= hoze
+ $% {$0 p/(map bone session-0)}
+ {$1 p/(map bone session-1)}
+ {$2 p/(map bone session-1)}
+ {$3 p/(map bone session-4)}
+ {$4 p/@ q/(map bone session-4)}
+ ==
+ |= old/(unit ?(house hoze)) ^+ [~ ..prep]
+ ?~ old `..prep
+ ?+ -.u.old !!
+ $4 $(-.u.old %5, q.u.old (~(run by q.u.old) |=(session-4 +<(sur ~, lib ~))))
+ $5 `..prep(+<+ u.old)
+ ==
::
:: pattern: ++ foo |=(data he-abet:(~(he-foo he (~(got by hoc) ost)) data))
++ arm (arm-session ~ (~(got by hoc) ost.hid))
