open System let ri () = stdin.ReadLine() |> int let ria () = stdin.ReadLine().Split() |> Array.map int type Sol() = member this.Solve() = let N = ri() let rec pow n k = match k with | 0 -> 1L | _ -> (int64) n * pow n (k - 1) let a = [ for i in 0..N do for j in 0..N do yield (pow 2 i) * (pow 5 j) ] a |> List.sort |> List.iter (fun n -> printfn "%d" n) () let mySol = new Sol() mySol.Solve()