alias fib {
  var %a 1,%b 1, %c 2
  while ($1 > %c) {
    var %d %a,%a %a + %b,%b %d
    inc %c
  }
  return %a
}