[Non-function input to play with the code
Joachim Breitner <mail@joachim-breitner.de>**20100828173459
 Ignore-this: 750bdbac4714307751714114285300d1
] hunk ./b18n-combined-cgi.hs 118
-		)
+		) +++
+                maindiv ! [ identifier "playwithit" ] << ( htmlMB generatedModuleMB $ \_ ->
+                    table << (
+                        tr << (td << "Source:"         +++
+                               td << input ! [name "source", value "[?]"] +++
+                               td << submit "updView" "Run \"get source\""
+                            ) +++ 
+                        tr << (td << "View:"           +++
+                               td << input ! [readOnly, value "[?]"]
+                            ) +++ 
+                        tr << (td << "Updated view:"   +++
+                               td << input ! [name "view", value "[?]"] +++
+                               td << submit "updView" "Run \"put source view\""
+                            ) +++ 
+                        tr << (td << "Updated source:" +++
+                               td << input ! [readOnly, value "[?]"]
+                            )
+                    )
+                )