f :: String -> Int f str = 55 - sum (map read $ words str) main = getLine >>= print . f