main=mapM(print.sum)$take 105$mapM(\x->[0,3^x])[6,5..0]