$c=ord"\n";print$c--.$/while$c;