dread :: String -> Maybe Double
dread s = case readFloat s of
            [(n,_)]-> Just n
            _ -> Nothing
dread :: String -> Maybe Double
dread s = case readFloat s of
            [(n,_)]-> Just n
            _ -> Nothing
dread s = case readFloat s of
            [(n,_)]-> Just n
            _ -> Nothing