_iterations = 1000000

local fn SleepingBeauty
  NSUInteger i
  CGFloat    heads = 0, sleep = 0

  for i = 1 to _iterations
    NSInteger coinToss = int( rnd(2) )
    sleep++
    if coinToss = 1 then heads++ else sleep++
  next

  printf @"Awakenings over %lld sleep cycles = %.f", _iterations, sleep
  printf @"Percent probability of heads on waking = %.4f%%", heads / sleep * 100
end fn

randomize

fn SleepingBeauty

HandleEvents