alias graphn {
  var %n = 1, %t, %x
  while (%n <= 100) {
    %x = 1
    while ($rand(1,100) != 100) {
      inc %x
    }
    %t = $addtok(%t,%x,44)
    inc %n
  }
  return %t
}