text: 
  module Main where
  
  main 
    = do x1 <- readFile "test2.sorted"
         let x2 = lines x1
             x3 = zip [1 ..] x2
             x4 = concat (map qq x3)
         --putStr x4
         writeFile "test2.orig" x4
  
  
  qq :: (Int, String) -> String
  qq (n, s0) 
     = let ws     = words s0
           bytes  = head ws
           rest   = unwords (tail ws)
           bytes2 = foo bytes
       in
       unlines [
          "",
          rest,
          ". " ++ show n ++ " 0x12345678 " ++ show (1 + (length bytes `div` 2)),
          ". " ++ bytes2 ++ "C3"
       ]
  
  
  foo [] = []
  foo (x:y:rest) = x:y:' ':foo rest
  