#!/usr/bin/perl
use CGI;$a=new CGI;print$a->header =>$a-> start_html(substr($

0,-4),q

<olly@muscat.com>

),(startform$a

get,a_life

)=>

submit

$a;sub _{$_{$#=$_._.$b}++}sub b{((@_=sort{$a-$b}keys%b)[0]-2 ..

pop

)}for(param$a){do{_$_--;_$b--;_$_++;_++$_;$b{++$b}=_$b++;$a{$_--}=_;_;_$_--}

if ($b)=/_(.+)/
}
  map{$_{$_}=$_{$_}-2?
  $_
{

$_}==3:param$a$_}%_;for$b(b){%b=%a;print$a->br;map{print q?<INPUT

type=checkbox ?

,_&&CHECKED," NAME=$#>"

}b}
