sub c{print"@{$_[0]} <=> @{$_[1]}: -/+1 if left/right heavier, 0 if equal: ";<>}
sub b{$_[0]<13?$_[0]:26-$_[0]} sub a{2>($_[0]+($_[0]>11))%4} sub d{sort{$a<=>$b}
map b($_),grep{a($_)&&$_[1]==int($_%3**$_[0]/3**$_[0]*3)}1..25}$;+=3**$_/3*(1+c(
[d($_,0)],[d($_,2)]))for 1..3;print b($;)." is ".(a($;)?"heavi":"light")."er\n";