#!perl -lp $_=2<<13/9*log