#!/usr/bin/perl
$str="1"; for (1 .. shift(@ARGV)) { print($str, ", "); @a = split(//, $str); $str=""; $nd=shift(@a); while (defined($nd)) { $d=$nd; $cnt=0; while (defined($nd) && ($nd eq $d)) { $cnt++; $nd = shift(@a); } $str .= $cnt.$d; } } print($str);
IyEvdXNyL2Jpbi9wZXJsCiRzdHI9IjEiOyBmb3IgKDEgLi4gc2hpZnQoQEFSR1YpKSB7IHByaW50KCRzdHIsICIsICIpOyBAYSA9IHNwbGl0KC8vLCAkc3RyKTsgJHN0cj0iIjsgJG5kPXNoaWZ0KEBhKTsgd2hpbGUgKGRlZmluZWQoJG5kKSkgeyAkZD0kbmQ7ICRjbnQ9MDsgd2hpbGUgKGRlZmluZWQoJG5kKSAmJiAoJG5kIGVxICRkKSkgeyAkY250Kys7ICRuZCA9IHNoaWZ0KEBhKTsgfSAkc3RyIC49ICRjbnQuJGQ7IH0gfSBwcmludCgkc3RyKTs=