File standardInput readLines map($,($split map(asNumber)map(**(2/3))sum**1.5)round println)