main = do x <- rList "[1,3,5,7]"
	  y <- rInt  "5"
	  print (map (y*) x)

rList :: String -> IO [Int]
rList = readIO

rInt :: String -> IO Int
rInt = readIO