use strict;
use warnings;

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

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

if ( $input =~ /^\d+$/){
    print OPCODE2Function->codes($input)."\n";
} else {
    my $ref = OPCODE2Function->name2bitecode($input);
    if (ref($ref ) eq "ARRAY"){
        map { print "$_\n";} @$ref;
    } else {
        print "$ref\n";
    }
}