March 2014 update

Task/URL-decoding/OCaml/url-decoding-2.ocaml

@@ -1,6 +1,4 @@
 /* Rexx */
-
-Do
   X = 0
   url. = ''
   X = X + 1; url.0 = X; url.X = 'http%3A%2F%2Ffoo%20bar%2F'
@@ -13,13 +11,10 @@ Do
     Say
     End u_
 
-  Return
-End
 Exit
 
-DecodeURL:
-Procedure
-Do
+DecodeURL: Procedure
+
   Parse Arg encoded
   decoded = ''
   PCT = '%'
@@ -36,13 +31,10 @@ Do
         decoded = decoded || PCT
         tail = code || tail
         End
-      otherwise Do
+      otherwise
         Nop
-        End
       End
     encoded = tail
     End e_
 
   Return decoded
-End
-Exit