1 2 3 4 5
fun main () = a <- source "some text"; return <xml><body> <label>A: <ctextbox source={a}/></label> </body></xml>