print do{$i += 1; 2 * $i} + do{$i += 1; 3 * $i};