#! /usr/bin/perl
##
## Oldham, Jeffrey D.
## 2000Mar30
## CS1321

## Generate Tautology of Specified Size

## Command-line Arguments:
## 1. number of variables in expression

$nuVars = shift;
$nuAnds = $nuVars;
for ($var = 'a'; $nuVars > 0; ++$var, --$nuVars) {
  print("$var $var ! ||\n");
}
for (--$nuAnds; $nuAnds > 0; --$nuAnds) {
  print("&&\n");
}
