#!/bin/perl

# Script to decode a single synop
#
# Use: decode_a_synop.pl text-of-the-synop
#
# See-also: decode_synops.pl

require "decode_synop.pl";

print join(" ",@ARGV),"\n";
@A=&decode_synop(join(" ",@ARGV));
print @A,"\n";

end