let todo msg =
  raise (Todo msg)