@d=(0)x6e6;<>;($a,$b,$c)=glob<>;$/=$";($%-=++$d[$%]-length)>=$c+$b+$a?$\+=$d[$%-$c-$b-$a]&$d[$%-$c-$b]&$d[$%-$c]:0for<>;print