import Control.Applicative

differential :: Float -> (Float -> Float)
differential n = \x -> n*x**(n-1)

integral :: Float -> (Float -> Float)
integral n
	| n == -1.0 = \x -> log x
	| otherwise = \x -> x**(n+1)/(n+1)

main = do
	n <- getLine
	b <- getLine >>= return . (read::String->Float)
	a <- getLine >>= return . map (read::String->Float) . words
	print $ sum $ (map differential a) <*> return b
	print $ sum $ (map integral a) <*> return b