import Control.Applicative
import qualified Data.Collections as C
import Control.Monad.Unicode
import Control.Applicative
import qualified Data.Collections as C
import Control.Monad.Unicode
let text = fromMaybe (∅) $ fdContent <$> lookup "text" f
file = fromMaybe (∅) $ fdContent <$> lookup "file" f
fileName = fdFileName =≪ lookup "file" f
let text = fromMaybe (∅) $ fdContent <$> lookup "text" f
file = fromMaybe (∅) $ fdContent <$> lookup "file" f
fileName = fdFileName =≪ lookup "file" f
putChunks $ "You entered \"" ⊕ text ⊕ "\".\n"
putChunks $ "You uploaded a " ⊕ Lazy.pack (show $ Lazy.length file) ⊕ " bytes long file.\n"
putChunks $ "The file name is " ⊕ Lazy.pack (show fileName) ⊕ ".\n"
putChunks $ "You entered \"" ⊕ text ⊕ "\".\n"
putChunks $ "You uploaded a " ⊕ Lazy.pack (show $ Lazy.length file) ⊕ " bytes long file.\n"
putChunks $ "The file name is " ⊕ Lazy.pack (show fileName) ⊕ ".\n"