xs追い出し成功・・なの？

Prelude> flip(map)  (flip(map) [take,drop] ($ 3)) $ flip($) $  [1..5]
[[1,2,3],[4,5]]
Prelude> flip(map)  (flip(map) [take,drop] ($ 3)) . flip($) $  [1..5]
[[1,2,3],[4,5]]

*Main> :! type mysplit.hs
splitAt' n = flip(map)  (flip(map) [take,drop] ($ n)) . flip($)
*Main> :l mysplit.hs
Compiling Main             ( mysplit.hs, interpreted )
Ok, modules loaded: Main.
*Main> splitAt' 7 ['a'..'z']
["abcdefg","hijklmnopqrstuvwxyz"]

動いたヽ(´ー｀)ノ・・・nは追い出せるのかなぁ・・