#!/usr/bin/perl

for ($i = 1; $i <10; $i++) {
  for ($j = 1; $j < 10; $j++) {
    for ($k = 1; $k < 10; $k++) {
      for ($l = 1; $l < 10; $l++) {
        $res = int($i . $j) / int($k . $l);
        if ($res < 1) {
          if ($i == $k && ($j / $l == $res)) {
            print "$i$k / $j$l\n";
          }
          if ($i == $l && ($j / $k == $res)) {
            print "$i$k / $j$l\n";
          }
          if ($j == $k && ($i / $l == $res)) {
            print "$i$k / $j$l\n";
          }
          if ($j == $l && ($i / $k == $res)) {
            print "$i$k / $j$l\n";
          }
        }
      }
    }
  }
}