type Vector = [Int]
type Matrix = [Vector]
trans :: Matrix->Matrix->Matrix
trans x y
 |head y==[] = x
 |otherwise = trans x2 y2
 where
 x2 = x ++ [(map head y)]
 y2 = map tail y

trans2 :: Matrix->Matrix
trans2 = trans []

vproduct :: Vector->Vector->Int
vproduct a b = sum $ zipWith (*) a b

toVector :: String -> Vector
toVector = map (read :: String->Int).words

dim :: String->Int
dim=head.toVector.head.lines

takeContent :: String->(Matrix,Matrix)
takeContent xs = splitAt (dim xs).map toVector.tail.lines $ xs

myPartition :: Int->[[a]]->[a]->[[a]]
myPartition n x [] = x
myPartition n x y = myPartition n (x++[take n y]) (drop n y) 

myPartition2 :: Int->[a]->[[a]]
myPartition2 n = myPartition n []

calc :: (Matrix,Matrix)->Matrix
calc (mat1,mat2) = myPartition2 (length $ trans2 mat2) [vproduct x y|x<-mat1,y<-trans2 mat2]

myPrint :: Matrix->IO ()
myPrint = mapM_ $ putStrLn.unwords.(map show)

main = getContents >>= myPrint.calc.takeContent