fun main () : transaction page = s <- source "Initial"; return alert ("Clicky " ^ show ev.ScreenX)} onkeypress={fn ev => alert ("Code " ^ show ev.KeyCode)}/>