Beating the Arc Challenge in Haskell(gist.github.com)

    use Continuity;
    use HTML::AsSubs;
    Continuity->new->loop; # This starts the webserver

    sub main {
        my $request = shift;
        my $p = 'foo';

        $request->print( aform( $p )->as_HTML );
        my $foo = $request->next->param( $p );
        $request->print( w_link()->as_HTML );
        $request->next->print( "You said: $foo" );
    }

    sub aform {
        form( 
            input( { type => 'text', name => $_[0] } ), 
            input( { type => 'submit'} )
        );
    }

    sub w_link { a( { href => '.' }, 'Click Here' ) }

  * Write a library with helper functions. Like the Arc library.
  * Now you can write a short program that uses that library to do things.

  (defop said req
  (aform [onlink "click here" (pr "you said: " (arg _ "foo"))]
    (input "foo") 
    (submit)))