Cantor
Score: 45.22 (pass)
#!perl -l $_="-";for$,(1..pop){$_.=$".$_;$"x=3}print