adam@2050: fun api_1 (pb:postBody) (nm:string) : transaction page =
adam@2050:   return <xml>Processing the request</xml>
adam@2050: 
adam@2050: fun api (pb:postBody) (v:int) (nm:string) : transaction page =
adam@2050:   case v of
adam@2050:       1 => api_1 pb nm
adam@2050:     | _ => error <xml>Version {[v]} is not supported</xml>