let Words = ["первое", "second", "third", "slovo", "karoch", "hvatit"]
//printfn "%A" words

type LineElement =
   struct
      val Word: string
      val Space: int
      val Length: int
   end

let LineLength = 10;
let line = [];


let rec lineCreator list length line =
    match list with
    |hd::tl ->
        match hd with
             |" " ->
                let element = [Word "" Space 1]
                ()
             |_ ->
                let element = [Word hd Space 0]
                ()
        let line' = line @ element
        lineCreator tl length line'
    |_-> line