6 Start :: *World -> (String, *World)
9 #! (_, w) = readHistory "readline.history" w
10 #! (s, w) = readLine "first prompt: " True w
11 #! (s, w) = readLine "uparrow should word with history: " False w
12 #! (_, w) = writeHistory "readline.history" w