>>102360760
I had a similar problem where I loaded the Utah teapot into a vertex shader before I had model loading sorted.
You could hack together something in Python pretty quick.
main :: IO ()
main = readFile "teapot.data" >>= write_files
write_files :: String -> IO ()
write_files in_string = do
let vertices = parse_words "" . drop 1 $ words in_string
writeFile "teapot.vert" vertices
parse_words :: String -> [String] -> String
parse_words vertices [] = vertices
parse_words vertices strings = parse_words (vertices ++ lineify (take 6 strings)) (drop 6 strings)
lineify :: [String] -> String
lineify [v1, v2, v3, n1, n2, n3] = "{{" ++ v1 ++ "f, " ++ v2 ++ "f, " ++ v3 ++ "f}, {"
++ n1 ++ "f, " ++ n2 ++ "f, " ++ n3 ++ "f}},\n"