print "$a[$i]", ( $i ? '/' : '' ), "$c1[$w]";