adamc@776: fun echo r =
adamc@776: if blobSize (fileData r.File) > 100000 then
adamc@776: return Whoa! That one's too big.
adamc@776: else
adamc@776: returnBlob (fileData r.File) (blessMime (fileMimeType r.File))
adamc@776:
adamc@776: fun main () = return
adamc@776: The Amazing File Echoer!
adamc@776:
adamc@776:
adamc@776: