#!perl
$x=time;
$letters=scalar(split//,<>)/6;
print $letters/(time-$x)*60;