let ``No.192 合成数``() =
  let n = stdin.ReadLine() |> int
  
  seq {
    for i in [ n-100..n+100 ] do
    if i % 4 = 0 then yield i
    if i % 6 = 0 then yield i
         }
  |> Seq.head
  |> stdout.WriteLine

``No.192 合成数``()