<>=~$";print$_|$',$/.=$"x/../gfor(join$"x(2*$`-3),($')x$`)x$`