RosettaCodeData/Task/Command-line-arguments/TXR/command-line-arguments-2.txr

(tree-case *args*
  ((a b c) (put-line "got three args, thanks!"))
  (else (put-line `usage: @(ldiff *full-args* *args*) <arg1> <arg2> <arg3>`)))