6 Start :: *World -> (Int, String, HistoryState, *World)
9 #! w = setReadLineName "Test program" w
11 #! (_, w) = readHistory "readline.history" w
12 #! w = addHistory "testentry" w
13 #! (s, w) = readLine "first prompt: " True w
14 #! (s, w) = readLine "uparrow should word with history: " False w
15 #! (_, w) = writeHistory "readline.history" w
16 #! (i, w) = historySearch "testentry" -1 w
17 #! (h, w) = historyGetHistoryState w