open import "prelude.ml"

open import "./save_context.ml"

open import "./pretty.ml"
open import "./dolphin.ml"

let base_address = 0xf64120

let g_save_ctx_address = 0x11a5d0

let decode_save_ctx : () -> save_context = decode (base_address + g_save_ctx_address)

let main x =
  let save_ctx = decode_save_ctx x
  let display_save_ctx = "Save Context: " ^ (pretty save_ctx 0)
  Dolphin.set_screen_text display_save_ctx x

let () =
  main ()