need help with pedagogy

gistfile1.txt

-- I want to make this code nice and crisp for teaching purposes

list_of_lists_of_tack_on_functions  = (fmap (\x->(++[x]))) <$> 
    (["0","1","abc","def","ghi","jkl","mno","pqrs","tuv","wxyz"]!!) <$> 
    (\x->(read [x])::Int) <$> 
    "4742836"

foldl (\list_of_names list_of_tack_on_functions -> list_of_tack_on_functions <*> list_of_names) 
    [""] 
    list_of_lists_of_tack_on_functions