inString :: ArgIn String
inString s p           = do 
                           pbstr  <- nofreeAllocBSTR s
                           writeVarString (castPtr pbstr) p
inString :: ArgIn String
inString s p           = do 
                           pbstr  <- nofreeAllocBSTR s
                           writeVarString (castPtr pbstr) p
inString s p           = do 
                           pbstr  <- nofreeAllocBSTR s
                           writeVarString (castPtr pbstr) p