[O] Open Children of Children

[Trevor Vartanoff]

I've been using this macro on headings to open the subtree to the 
children of children, since org-cycle just goes "nothing -> children - 
everything":

(fset 'och ;; Open children of children
   [tab tab ?\C-n M-return ?\C-b ?* ?\C-a ?\C-p tab tab ?\C-n ?\C-k 
?\C-k ?\C-p])

Is there a more elegant solution available? If not, hopefully some of 
you find this useful as well.

Thanks