#!/usr/bin/perl
use HTML::Entities::Numbered;
print name2decimal(<stdin>);