arc challenge on mongrel2 + atomo

gistfile1.hs

use: "web"

Site = Website new: [
  "/" ->
    { form: {
        input: "foo"
        submit
      } action: {
        foo = parameter: "foo"
        link: "click here" to: {
          respond-with: ("you said: " .. foo)
        }
      }
    }
]

test =
  Site bind: [
    @id -> "f284b010-ef92-11df-98cf-0800200c9a66"
    @from -> "tcp://127.0.0.1:9997"
    @to -> "tcp://127.0.0.1:9996"
  ]

"running" print
{ test listen } spawn