open System let N = Console.ReadLine() [N |> int .. (-1) .. 1] |> List.map (fun x -> String.replicate x N) |> List.iter (printfn "%s")