functional-programming/lab3/app/Main.hs

module Main (main) where

import Lib

main :: IO ()
main = do
    inputText <- readFile "resources/biography.txt"
    putStrLn $ take 30 inputText
    putStrLn $ createAlphabetFromText inputText