greeting :: MegaHal -> IO BS.ByteString
greeting (MegaHal cxt _) = BS.packCString =<< m_initial_greeting cxt
greeting :: MegaHal -> IO BS.ByteString
greeting (MegaHal cxt _) = BS.packCString =<< m_initial_greeting cxt
greeting (MegaHal cxt _) = BS.packCString =<< m_initial_greeting cxt