Isn't the "foam line" at the top, supposed to move downwards with time? :-)

Try this code change for "green beer".

#print $pint;
print "\033[42m $pint \033[m";
[download]