let k = stdin.ReadLine() |> int let mutable cnt = 0 for i = 12345678 to 87654321 do if i % k = 0 then let x = i |> string |> Seq.sort |> System.String.Concat if x = "12345678" then cnt <- cnt + 1 cnt |> printfn "%d"