sub e{
    @e=(1)x pop;
    for(1..@e){
        for(reverse(1..$#e)){
            $e[$_-1]+=$e[$_]/$_;
            $e[$_]=10*($e[$_]%$_)
        }
        print int $e[0];
        $e[0]=0
    }
}