getSigPtrTyp :: String -> String
getSigPtrTyp sig
   = "<" ++ (init $ tail $ dropWhile ('('/=) sig) ++ ">"
getSigPtrTyp :: String -> String
getSigPtrTyp sig
   = "<" ++ (init $ tail $ dropWhile ('('/=) sig) ++ ">"
getSigPtrTyp sig
   = "<" ++ (init $ tail $ dropWhile ('('/=) sig) ++ ">"