# 68 strokes
perl -E'map{say$_=$t||1;$t="";$t.=(length$&).$1while/(.)\1*/g}0..19'