Haskellben hogyan tudok csak megadott hosszúságú szavakat nagybetűsíteni?

import Data.Char ( toUpper)

szoNagyBetu :: String -> String

szoNagyBetu (a:b:c:d:maradek) = toUpper a : b : c : d : maradek

szoNagyBetu szo = szo

mondatNagyBetu :: String -> String

mondatNagyBetu mondat = unwords [ szoNagyBetu szo | szo <- words mondat]

az első függvény egy szó első betűjét nagybetűsíti, ha az legalább négy betűs

a b c d jelenti az első, második, harmadik, negyedik betűt

de ha rövidebb a szó, akkor nem csinálunk vele semmit

a második függvény szavakra bontja a szöveget, és mindegyik szóra alkalmazza az első függvényt, majd újra "mondatot" csinál a szavakból