isPtrSuffix :: String -> Bool
isPtrSuffix sig
  = if (t1 == [])
     then False
     else 
      if (((last t1) == ')') && ((last (init t1)) == '*'))
       then True
       else False
  where
    t1 = dropWhile ('('/=) sig
isPtrSuffix :: String -> Bool
isPtrSuffix sig
  = if (t1 == [])
     then False
     else 
      if (((last t1) == ')') && ((last (init t1)) == '*'))
       then True
       else False
  where
    t1 = dropWhile ('('/=) sig
isPtrSuffix sig
  = if (t1 == [])
     then False
     else 
      if (((last t1) == ')') && ((last (init t1)) == '*'))
       then True
       else False
  where
    t1 = dropWhile ('('/=) sig