sub lookup
{
    my $r = shift(@_);
    $r = $r->{$_} foreach @_;
    return $r;
}