#!/usr/bin/perl

use strict;
use warnings;

my $bits = shift;
my $den = 2**$bits;
for my $num (1 .. $den-1) {
   for ( sprintf "%0${bits}b", $num ) {
      s/10*$/R/;
      $_ .= ')' x s/(?<=1)(?=0)|(?<=0)(?=1)/(/g;
      s/0/R & /g;
      s/1/R | /g;
      print "E($num/$den) = $_\n";
   }
}