include "NSLog.incl"

void local fn DoCommandLineArguments
  CFArrayRef args = fn ProcessInfoArguments
  NSLog(@"This program is named %@.",args[0])
  NSLog(@"There are %d arguments.",len(args)-1)
  for long i = 1 to len(args)-1
    NSLog(@"the argument #%d is %@", i, args[i])
  next
end fn

fn DoCommandLineArguments

HandleEvents