Yes, more beautiful :)

Update: and compilation from all ideas:

$|[$_->{_,s:.(.).+.(.):print+($1..$2)[9,0,15,7]:e}]
[download]