$d=<>;sub _{print$_[1],$/;$_[0]-1&&_($_[0]-1,$"x3 .$_[1].".".$_)for@a};_($d,$_)for@a=1..3