foreach $e (@s) {
    print(($.||1..$.&&0)-1," $e\n");
}