#!/usr/local/bin/cz -- use b Main() print_space = "\t" Eachline(l) dirbasename(l, dir, base) Pr(cstr, dir, base)