data TextEditor = TextEditor([Char],[Char],[Char],[Char]) deriving (Show)

--
test::TextEditor --create a new text editor
test = (['H','e','l','l','o',' '],['s','e','l','e','c','t','e','d'], ['W','o','r','l','d'],['c','l','i','p','b','o','a','r','d']) --set the values of the new text editor to be Hello |World where "|" is the cursor