Sergey Averyanov averyanov

## qxp.pm
package qxp;
use strict;

# https://code.google.com/p/qxp/

sub H($){pack'H*',$_[0]}
sub by{map{[splice@_,1,$_[0]]}!($#_%$_[0])..$#_/$_[0]}
sub is($){$_ eq$_[0]}
sub cat{join'',@_}
sub list{@_}
	package qxp;
	use strict;

	# https://code.google.com/p/qxp/

	sub H($){pack'H*',$_[0]}
	sub by{map{[splice@_,1,$_[0]]}!($#_%$_[0])..$#_/$_[0]}
	sub is($){$_ eq$_[0]}
	sub cat{join'',@_}
	sub list{@_}