rejectExample2.txt

> example :: VoiceTwiml
> example =
>   response $ do
>     reject $ def & reason .~ Just Busy
>     end
>   where Twiml.Syntax{..} = def

>>> show example
<?xml version="1.0" encoding="UTF-8"?>
<Response>
  <Reject reason="busy" />
</Response>