#!/usr/bin/perl -w
use strict;
our(@nums,@lets,$let,$num);

            @nums = ("5","1","2","1","1" ,"6","1","1","1","1"
		    ,"2","1","1","2","1", "1","8","1","5","1","3","1"
		    ,"1","8","1","6","2" ,"6","1","1","1","1","9","1"
		    ,"1","2","1","1", "9","1","1","2","1","1","1","8"
		    ,"1","6","1","7","1","1","2","1","1","2","1","1","7","1","1","3","1","1"
		    ,"1","8","1","5","2","6","1","1","9","1","1","2",                "1","1",
		    "1" ,"2","1","1","1","2","1","1","1","2","1","1",                  "1","8"
		    ,"1","1","2","1","1","2","1","1","7","1","1","6",                    "1",
		    "1", "1","6","1","1","5","1","3","1");@lets=(" ",                     "H"
		    ," ", "H","\n"," ","\\"," ","/","\n"," ","H"," ",                     "-"
		    ," ", "C", " ","O"," ","H"," ","H","\n"," ","\\",                     " "
		    ,"\/"," ","\\"," ","\/","\n"," ","N"," ","-"," ",                     "C"
		    ," ","C"," " ,"-"," ","H","\n"," ","\/"," ","\\",                     " "
		    ,"\/","\n", " ", "O"," ","="," ","C"," ","C"," ",                      "-"
		    ," ","N","\n"," ","\\"," ","\/"," ","\\","\n"," "                     ,"N"
		    ," ","-", " ","C"," ","-"," ","N"," ","="," ","C"                    ," ",
		    "-", " ","H", "\n"," ","\/","\n"," ","H"," ","-",                  " ","C"
		    ," ","caffeine","\n"," ","\/"," ","\\"," ","(C8H10N4O2)","\n"," ","H"," ",
		    "H","\n");while (@nums){$num = shift(@nums); $let
            = shift (@lets); print "$let"x$num; };print "\n";