@r=(9)x<>;map{/.{7}$/;$&.0lt$_&&($_=$`,++$\,last)for@r=sort@r}sort{1}sort<>;print