print$_,$/x!($t="$t$_"%7)for<>=~/./g