import Data.Ratio
import Data.List

main = do
  let zielone = replicate 10 5 ++ replicate 5 2
      biale   = replicate  2 5 ++ replicate 3 2
      omega   = [ x+y | t <- zielone, x <- (t:biale), y <- delete x (t:biale) ]
  print $ (length (filter (==7) omega)) % (length omega)