@_=(115,-17,6);
print map { chr($_[$.=$_-$_] * $_ ** $.++ + $_[$.] * $_ ** $.++ + $_[$.] * $_ ** $.) } $. - $. .. $#_

##</code><code>##

@_=(115,-17,6);
print map { chr($_[0] * $_ ** 0 + $_[1] * $_ ** 1 + $_[2] * $_ ** 2) } 0 .. 2

##</code><code>##

@_=(115,-17,6);
print map { chr(115 + -17 * $_ + 6 * $_ ** 2) } 0 .. 2