dc -e'0Sz[[NO]]sq[1Sz]sp[lx*rdSaly*>pLaz2<t]st?SySx??z2<t[YES]Lz0<qp'