Cantor

Score: 45.24 (pass)

#!perl -l
s//-/;for$a(1..pop){$_.=$"x y///c.$_}print

Score: 47.21 (pass)

#!perl -l
s//-/;$_.=$"x y///c.$_ while$ARGV[0]--;print