#!/usr/bin/perl

# removes lines with edges "15", "26", "37", and "48"
# as they are not in the hypercube map.

foreach (<>) {
  next if (/15/);
  next if (/26/);
  next if (/37/);
  next if (/48/);
  print $_;
}