0. #lang racket
1.  
2. ; Convert a string into a list of string pairs
3. ; ex: (string->pairs "Apple") ("Ap" "pl" "e")
4. (define (string->pairs s)
5.     (define (loop p l)
6.       (cond
7.         [(empty? l) (reverse p)]
8.         [(eq? (length l) 1) (reverse (cons (list->string l) p))]
9.         [else (loop (cons (list->string (take l 2)) p) (drop l 2))]))
10.     (loop '() (string->list s)))
11.  
12. (print (string->pairs "Apple"))
13. (print (string->pairs "Supercalifragalisticexpealidocious"))

=>

'("Ap" "pl" "e")

'("Su" "pe" "rc" "al" "if" "ra" "ga" "li" "st" "ic" "ex" "pe" "al" "id" "oc" "io" "us")