, resPost
= Just $ do str1 <- inputChunk 3
str2 <- inputChunk 3
str3 <- inputChunk 3
setContentType $ read "text/hello"
output ("[" ++ str1 ++ " - " ++ str2 ++ "#" ++ str3 ++ "]")
, resPost
= Just $ do str1 <- inputChunk 3
str2 <- inputChunk 3
str3 <- inputChunk 3
setContentType $ read "text/hello"
output ("[" ++ str1 ++ " - " ++ str2 ++ "#" ++ str3 ++ "]")