import Data.List.Split

understandable :: Int -> Int -> Bool
understandable x y
    | x > 9 = False
    | y > 9 = False
    | x < 1 = False
    | y < 1 = False
    | otherwise = True

kuku :: Int -> Int -> Int
kuku x y = case understandable x y of
             True -> x * y
             False -> -1

main :: IO ()
main = do
    inputs <- getLine
    let (x:y:z) = map read $ splitOn " " inputs :: [Int]

    putStrLn "Finished"
