%
% stack: src-look reverse
%
!drctn
lookin_
empty !builder
countup
{
 _drctn
 {
  pop
 }
 {
  -1 roll
 } ifelse
 _builder exch lookstr? { !builder } { } ifelse
} for
_builder
%
% stack: dest-look-str
%