>>498
少々汚いやり方だがこんなのはどうだ？
まあPreludeの関数がパターンマッチングを使っているから美学的な意味しかないが

import Control.Arrow (first ,second)

makeTuple = second head . first head . splitAt 1 . repeat

main = print . makeTuple $ "You can do it!"