module Reverse where

main :: IO ()
main = print $ rvrs "Curry is awesome"

rvrs :: String -> String
rvrs x = wAwesome ++ wIs ++ wCurry
  where
    wCurry = take currySize x
    wIs = drop currySize . reverse . drop awesomeSize . reverse $ x
    wAwesome = reverse . take awesomeSize . reverse $ x
    currySize = 5
    awesomeSize = 7

rvrs' :: String -> String
rvrs' = unwords . reverse . words