src/Main.hs


1
2
3
4
5
6
7
8
9
10

{-# LANGUAGE TypeApplications #-}

module Main where

import Main.Utf8 (withUtf8)

main :: IO ()
main = do
  withUtf8 $ do
    putStrLn . concat $ permutations "Hello World!"