(def alphabet {"a" "n", "b" "o", "c" "p", "d" "q", "e" "r", "f" "s", "g" "t", "h" "u", "i" "v", "j" "w", "k" "x", "l" "y", "m" "z"
    "n" "a", "o" "b", "p" "c", "q" "d", "r" "e", "s" "f", "t" "g", "u" "h", "v" "i", "w" "j", "x" "k", "y" "l", "z" "m"
    "A" "N", "B" "O", "C" "P", "D" "Q", "E" "R", "F" "S", "G" "T", "H" "U", "I" "V", "J" "W", "K" "X", "L" "Y", "M" "Z"
    "N" "A", "O" "B", "P" "C", "Q" "D", "R" "E", "S" "F", "T" "G", "U" "H", "V" "I", "W" "J", "X" "K", "Y" "L", "Z" "M"
})

(defn checkValid [x]
    (if (= (contains? alphabet x) true)    
        (get alphabet x)
        x
    )
)

(defn encrypt [x] 
    (loop [i 0 ret ""]
        (if (< i (count x))
            (recur (inc i) (
                str ret (
                checkValid(subs x i 
                (+ i 1))))
            )
            ret
        )      
    )
)

(println(encrypt "When the person who pretends to be someone else in order to deceive others, especially for fraudulent gain is giving the impression that something is questionable or dishonest, causing one to have the idea or impression that they are of questionable, dishonest, or dangerous character or condition. This person could be described as 'sus'"))
;(println(encrypt "please give me a good grade!"))
(println "-----")
;(println(encrypt (encrypt "please give me a good grade!")))
(println (encrypt( encrypt "When the person who pretends to be someone else in order to deceive others, especially for fraudulent gain is giving the impression that something is questionable or dishonest, causing one to have the idea or impression that they are of questionable, dishonest, or dangerous character or condition. This person could be described as 'sus'")))