Shows different text than what was pressed

pressed.elm

import Char
import Keyboard
import String

toString char = String.cons (Char.fromCode char) ""

typed text = plainText "You typed: " `beside` asText text

transformed text = plainText "I'll show you: " `beside` (asText . String.reverse <| text) 

display text = flow down <| [ (typed text), (transformed text) ]

stringTogether char oldText = oldText ++ toString char

main = display <~ foldp stringTogether "" Keyboard.lastPressed