Template

Define normal Snaml Generic WML header.

proc WMLHeader {filename} {
  package require WML

  output $filename
  __pi {xml version='1.0'}
  __doctype {wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" 
    "http://www.wapforum.org/DTD/wml_1.1.xml"}
}	

setting possible type value (help, accept, options, prev, reset, delete, unknow). _do commands inside the _template define their actions with foreach iteration.

WMLHeader template.wml
set ls {help accept options prev reset delete unknown}
_wml
  _template
    foreach e $ls {
      _do "type='$e'"
        __go "href='#card_$e'"
      do_
    }
  template_	

foreach iteration defines cards. Each card is aligned on center and displayed e.

   foreach e $ls {
     _card "id='card_$e'"
       _p "align='center'"
         quote "Card: $e"
       p_
     card_
   }
wml_