Kolakoski

Score: 65.23 (pass)

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