import qualified Data.ByteString.Char8         as BS
import Control.Applicative


gn=map (read . BS.unpack) . BS.words <$> BS.getLine ::IO[Int]
----------------------------------------------------


main :: IO ()
main = do
    [n,m] <- gn
    x<- gn
    k<-gn
    let a=map ((\l->if null l then 0 else minimum l) . (`f` k)) x
    putStr$unlines$map(\x->if x<0 then "Infinity" else show x)$zipWith(-)a x

f y = filter(>y)