Cantor
Score: 41.15 (pass)
#!perl -l s//-/;s/./$& $&/gwhile$ARGV[0]--;print