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

:- use_package(pillow).

main(_) :-
    get_form_input(Input),
    get_form_value(Input,person_name,Name),
    Answer = [  hr$[],
	        h2('You submitted the name: '),
	        em(Name),
                hr$[] ],
    output_html([ cgi_reply, html(Answer) ]).