Community resources for PowerShell coders
2009-04-18 by Robert Robelo
Down to a two-statement sciptblock. 114 chars w/o the arg
&{($r=,(' '*($p=[char]$args[0]-($s=65))+[char]$s)+($p..1|%{"{0,$_} {1}{0}"-f[char]++$s,(' '*$f++)}));$r[-2..-99]}J