-- | Unsafe (/constant/) version of 'getProgPath'.
__Bin__ :: String
__Bin__ = let path = unsafePerformIO getProgPath
    in length path `seq` path
__Bin__ :: String
__Bin__ = let path = unsafePerformIO getProgPath
    in length path `seq` path
__Bin__ = let path = unsafePerformIO getProgPath
    in length path `seq` path