#!perl -pl
$_*=($_=0|$_/30.173+.6)/3*$_+$_++/6