sub f{($_**3*$_[6]+3*$_*$u*($_*$_[4]+$u*$_[2])+$u**3*"@_")/1e3}@a=<>;$u=10-$_,printf"%d %d
",f(@a),f@a[1..7]for 0..10