//,print map(1<<~-$'/$n%4*4-$_/$n&626?" ":(Ea,st,er,he,gg)[$i++%5],@a),$/for@a=1..($n=<>)*5