string s        = case (span (/='\n') s) of
                    (xs,ys) -> text xs <> string ys
string s        = case (span (/='\n') s) of
                    (xs,ys) -> text xs <> string ys
string s        = case (span (/='\n') s) of
                    (xs,ys) -> text xs <> string ys