print$_,($d=(3*$d+$_)%7)?'':$/for<>=~/./g