athashleveldo($_, $n-1, $action) for values %$h;