$num = shift;
dbmopen(d,"hakoiri",0666);

for($i=$num;;$i=$d{'prev',$i}){
    print "state $i-----\n";
    &display($d{'statestr',$i});
    last if $i == 0;
}

sub display {
    local($s) = @_;
    for(0..4){ print substr($s,$_ * 5,4),"\n"; }
}