#!perl -pl61
$\*=(15-y/,//+/N/)**2}{