makeThing :: String -> Thing
makeThing s =
    let [s1,s2,s3] = splitBy ',' $ tail $ init s
    in  (read s1, readRational s2, read $ tail s3)
makeThing :: String -> Thing
makeThing s =
    let [s1,s2,s3] = splitBy ',' $ tail $ init s
    in  (read s1, readRational s2, read $ tail s3)
makeThing s =
    let [s1,s2,s3] = splitBy ',' $ tail $ init s
    in  (read s1, readRational s2, read $ tail s3)