[0] Perl> printf "%*s\n", $_ *2+4, 'fred' for 1 .. 10;;
  fred
    fred
      fred
        fred
          fred
            fred
              fred
                fred
                  fred
                    fred