User blog comment:Wythagoras/Dollars Function/@comment-5029411-20130802141329

Ultimate Array Notation IV Treasure Function

treasure(a) = a$[0 ->{0} 1]... 1] 1] (treasure(a-1) ->'s)