use strict;
use warnings;

use FindBin;
use lib "$FindBin::Bin/lib";
use OPCODE2Function;

my $input =  shift or die 'use input cur_op';
chomp $input;

my $ref = OPCODE2Function->name2bitecode($input);

if (ref($ref ) eq "ARRAY"){
    map { print "$_\n";} @$ref;
} else {
    print "$ref\n";
}