in reply to (Golf) Grey code

59 chars:
  
sub g {
  ($n=pop)--?[map("0$_",@l=@{g($n)}),map"1$_",reverse@l]:['']
}

[download]
   MeowChow                                   
               s aamecha.s a..a\u$&owag.print

In Section Meditations