Cantor
Score: 40.20 (pass)
#!perl -l s//-/;for$a(1..pop){s/./$& $&/g}print