#!/usr/bin/env perl
#
# unifrac

use v5.14;
use strict;
use warnings;
use warnings FATAL => "utf8";
use open qw(:utf8 :std);
use charnames qw(:full);

sub backchomp($);

for (@ARGV) {
   unless (m!/!) {
       say $_;
       next;
   }
   my($top, $bottom) = m! ( [^/]* ) / ( [^/]* ) !x;

   my $superscript = backchomp("echo '$top'    | unisupers");
   my $subscript   = backchomp("echo '$bottom' | unisubs");

   say $superscript, "\N{FRACTION SLASH}", $subscript;

}

sub backchomp($) {
   die unless @_ == 1;
   my($cmdstring) = @_;

   my $result = `$cmdstring`;
   if ($?) {
       die "can't run $cmdstring, status=", ($? >> 8);
   }
   chomp $result;

   return $result;
}