@$_=glob<>for P..V;sub f{my($i,$c,$t)=@_;$c<0|$t>$\<<0or$i=="@P"?$\=$t:map$S[$_]-$i||f($T[$_],$c-$U[$_],$t+$V[$_]),0..@S}f!$\--,@Q;print