anchor.diff:                              let arg2 = getSecondArg ()
                               try float arg2
                               with _ ->
  -                                raise <| Bad (getUsage argSpecs usageText)
  +                                raise <| ShowText (getUsage argSpecs usageText)
                            f arg2
                            cursor := !cursor + 2
                       | Rest f ->
  
positive.code:                                 sprintf "option %s needs an argument." s
                                  + System.Environment.NewLine
                                  + getUsage argSpecs usageText
                              raise <| Bad msg
                          argv.[!cursor + 1]
                   
                      match action with
  
negative.code:                             let arg2 = getSecondArg ()
                              try int32 arg2
                              with _ ->
                                  raise <| ShowText (getUsage argSpecs usageText)
                           f arg2
                           cursor := !cursor + 2
                      | Float f ->
  