#!/usr/bin/runhugs +l 

\begin{code}
import Xhtml1
import SWlib

main = withEucKrEnv $ putStr $ "Content-type: text/html\n\n"++html

html = xhtml1Doc Strict "UTF-8" <<
	thehtml <<
	(	thehead
		(	thetitle << "Smart Word start"
		+++	meta "text/html charset=UTF-8" !["http-equiv"-="Content-type"])
	+++ thebody <<
		(	h1 << "Smart Word start"
		+++ hr
		+++ h2 << "Book I"
		+++ form "start.cgi" !["method"-="post"] << p <<
--		+++ form "start.lhs" !["method"-="post"] << p <<
			(	input!["type"-="hidden","name"-="book","value"-="book1"]
			+++ map sbinput ['A'..'Z']	)
		+++ hr
		+++ h2 << "Book II"
		+++ form "start.cgi" !["method"-="post"] << p <<
--		+++ form "start.lhs" !["method"-="post"] << p <<
			(	input!["type"-="hidden","name"-="book","value"-="book2"]
			+++ map sbinput ['A'..'Z']	)
		+++ hr
		+++ p << validxhtml1
		)
	)

sbinput c = input!["type"-="submit","name"-="fstch","value"-=[c]]
\end{code}