prints nice grid layout of rules in Mathematica

gridrules.m

gridRules[rules_] /; 
	(ListQ[rules] && 
	(Length @ rules > 0) && 
	(And @@ (((Head @ # === Rule)||(Head @ # === RuleDelayed))& /@ rules))) :=
  With[{
    keys = #[[1]]& /@ rules,
    heads = #[[0]]& /@ rules,
    vals = gridRules[#[[2]]]& /@ rules},
   Grid[MapThread[{
	    Style[#1, Bold],
        Style[#3, Bold, Switch[#2, Rule, Blue, RuleDelayed, Red]]}&, 
      {keys, heads, vals}],
    Frame -> All,
    Alignment -> Left,
    Background -> {{LightOrange, {LightYellow}}}]
 ];
gridRules[rules_List] := Column[
 gridRules /@ rules,
 Frame -> All,
 Alignment -> Left,
 Background -> LightGreen];

gridRules[any_] := InputForm @ any;