print<><2||${/\?/&&map${//?i:$_&&j}=$l++,@b=split for@a=<>;$\-=(@c=split)[$i]*$c[$j]/$b[$j]for@a}