1app <- function(env){
2    req <- Rook::Request$new(env)
3    res <- Rook::Response$new()
4    friend <- 'World'
5    if (!is.null(req$GET()[['friend']]))
6	friend <- req$GET()[['friend']]
7    res$write(paste('<h1>Hello',friend,'</h1>\n'))
8    res$write('What is your name?\n')
9    res$write('<form method="GET">\n')
10    res$write('<input type="text" name="friend">\n')
11    res$write('<input type="submit" name="Submit">\n</form>\n<br>')
12    res$finish()
13}
14