#!/bin/sh 
exec /home/clip/bin/ciao-shell-1.10 $0 $* # -*- mode: ciao; -*-

:- include(library(pillow)).

main(_) :-
    get_form_input(Input),
    get_form_value(Input,person_name,Name),
    Form = ([ --,
              h2('You submitted the name: '),
              em(Name),
              --,
              h2('Please enter input (person_name):'),
              start_form, %% Refers to self!
              input(text,[name=person_name,size=40]),
              input(submit,[value='Submit']),
              end_form,
              -- ]),
    output_html([ cgi_reply, html(Form) ]).