sub state
{
    my $level = 1;
    return sub
    {
        return level++;
    }
}