Just a guess:

    data TheLine = Above | Below

    categoriseWord :: String -> TheLine
    categoriseWord s
      | length s <= 10 = Above
      | otherwise      = Below

There's not a lot to go on, though.