command-line get unclip {
    { "foo" [ do-foo ] }
    { "bar" [ do-bar ] }
    { "baz" [ do-baz ] }
    [ ( print usage and quit ) ]
} case format-result print