Kolakoski
Score: 65.23 (pass)
#!perl -l print map{push@a,($%=$ARGV[$_%2])x($n=$a[$_]||$%);$n}0..-1+pop