let rec s a = seq { yield a; yield! s (21^^^a) } let s2 n a = s a |> Seq.take n let arr = stdin.ReadLine().Split(' ') let W = int arr.[0] let H = int arr.[1] let C = int arr.[2].[0] s2 H C |> Seq.map ((s2 W) >> Seq.map (char>>string) >> Seq.reduce(+)) |> Seq.iter (printfn "%s")