Fixing wrong order

src/main/tut/3.4-monads-programmers-definition.md

@@ -247,16 +247,6 @@ def flatten[A, W: Monoid]
 ```
 ................
 ```Haskell
-upCase :: String -> Writer String String
-upCase s = Writer (map toUpper s, "upCase ")
-```
-```tut:silent
-def upCase
-    : String => Writer[String, String] =
-  s => Writer(s.toUpperCase, "upCase ")
-```
-................
-```Haskell
 process :: String -> Writer String [String]
 process = upCase >=> toWords
 ```
@@ -291,6 +281,16 @@ def process
 ```
 ................
 ```Haskell
+upCase :: String -> Writer String String
+upCase s = Writer (map toUpper s, "upCase ")
+```
+```tut:silent
+def upCase
+    : String => Writer[String, String] =
+  s => Writer(s.toUpperCase, "upCase ")
+```
+................
+```Haskell
 process s =
    upCase s >>= \ upStr ->
        toWords upStr