#!/usr/bin/perl -w

#

# logic.ly keygen in 202 bytes of perl.

# (C) 2014 Pegasus Epsilon <pegasus@pimpninjas.org>

#

# 1 2 3 4 5 6 7

#23456789012345678901234567890123456789012345678901234567890123456789012345678

use Digest::SHA$h='sha256_hex';@a=grep!/[EILNOSU5]/,B..Y,2..9;@a=map

{$a[hex]}(split//,&$h(join'',@b=map{$a[rand@a]}1..12))[-13..-1];print

join('-',unpack'a5'x5,join'',map{$a[$_],$b[$_]}0..11),$a[12],"\n"