sub h {
$_[0]?[map{[@$_,1],[@$_,-1]}@{h(-1+pop)}]:[[]]
}