function for combined meters

[Stefan Thomas]

Dear community,
I want to create variables for combined meters, which allows one to choose, how these measures are beamed.
For example, an 7 eigths bar can be beamed in 223 or 232, etc.
I would like to type something like
\VIIeights #2 #2 #3
I tried it with:
VIIeights = #(define-music-function (parser location ONE TWO  )
(number? number?   )

 #{ 
       #(set-time-signature 7 8 '( $ONE $TWO ))
       #(revert-auto-beam-setting '(end * * 7 8) $ONE 8 'Score )
#(revert-auto-beam-setting '(end * * 7 8)  $ONE + $TWO 8 'Score )
    #(revert-auto-beam-setting '(end * * 7 8) 5 8 'Score )
#}
  )
Unfortunately this doesn't work!