module Main (main) where

import Lib

caesarShift :: Int
caesarShift = 66

main :: IO ()
main = do
    inputText <- readFile "resources/biography.txt"
    putStrLn $ take 30 inputText
    let alphabet = createAlphabetFromText inputText
    putStrLn $ show (length alphabet)
    putStrLn $ take 30 (encryptCaesar alphabet caesarShift inputText)