(def string "alphabet")
(def n 2)
(def m 4)
(def len (count string))


(println
 (subs string n (+ n m)))              

(println
 (subs string n))                      

(println
 (subs string 0 (dec len)))            

(let [pos (.indexOf string (int \l))]
  (println
   (subs string pos (+ pos m))))     

(let [pos (.indexOf string "ph")]
  (println
   (subs string pos (+ pos m))))