sub do_file($$){
  my ($file, $indent) = @_;
  local *FOO;
  open(FOO, $file);
  while (<FOO>) {
    /^(\t+)#&#(.+)/ && $indent = do_file($2, $indent + length $1);
    print;
  }
  close FOO;
  return $indent;
}