find $1 \
-print -a \
"(" -type d -a -exec echo direc ";" ")" \
>/mnt/lasl/findout
ed - /mnt/lasl/findout
1,2d
v/^direc$/s/^/rcv /
g/^direc$/d\
-s/rcv/mkdir/
w
q
