Rebol [
    Title: "Said Controller"
    Date:  5-Jun-2013
    Author: "Christopher Ross-Gill"
    Type: 'controller
]

route () to %said [
    get [
        root: wrt://space/said
        unless case [
            cookie: get-cookie "said" [
                said: read root/:cookie
                delete root/:cookie
                clear-cookie "said"
                render "<h1><%== said %></h1>"
            ]
            said: get-param 'said [
                set-cookie "said" cookie: join random 123456 %.txt
                write root/:cookie said
                render {<%! a %/said %>Click Here</a>}
            ]
        ][render {<%! form get %/said %><%! field said "" "Say Something" %></form>}]
    ]
]