@ARGV=<../*/*/*/*z.t*>;print$_^""x/zB/for<>