setPropertyParser :: Parser ImageQueryStatement
setPropertyParser = choice (map try (map (fmap SetImageQueryParameter) [
    thresholdParser,
    channelParser,
    smoothingParser,
    subrectParser,
    stencilParser,
    polarityParser]))
setPropertyParser :: Parser ImageQueryStatement
setPropertyParser = choice (map try (map (fmap SetImageQueryParameter) [
    thresholdParser,
    channelParser,
    smoothingParser,
    subrectParser,
    stencilParser,
    polarityParser]))
setPropertyParser = choice (map try (map (fmap SetImageQueryParameter) [
    thresholdParser,
    channelParser,
    smoothingParser,
    subrectParser,
    stencilParser,
    polarityParser]))