#light
open System

let listF = [70;76;65;77;69;78;71;79;32;72;69;
             88;65;32;67;65;77;80;69;65;79;33]

for c = 1 to 6 do 
    for f = 0 to listF.Length - 1 do 
        Console.Write(Char.ConvertFromUtf32(listF.Item(f)))
    Console.WriteLine()

Console.ReadLine()