allocBSTR :: String -> IO (Ptr String)
allocBSTR s             = stackString s $ \ _ pstr -> do
                            ptr <- stringToBSTR (castPtr pstr)
                            readPtr ptr
allocBSTR :: String -> IO (Ptr String)
allocBSTR s             = stackString s $ \ _ pstr -> do
                            ptr <- stringToBSTR (castPtr pstr)
                            readPtr ptr
allocBSTR s             = stackString s $ \ _ pstr -> do
                            ptr <- stringToBSTR (castPtr pstr)
                            readPtr ptr