%%HP: T(3)A(D)F(.);
@ VALNC, finds # of valence electrons when given atomic #
@ by Michael Andrew Lowry
@ REQUIRES HP SOLVE EQ LIBRARY CARD
\<< \-> atno
  \<< atno 13 PTPROP DUP " " POS 1 - 1 SWAP SUB OBJ\-> DUP
    IF 10 >
    THEN 10 -
    ELSE DUP DUP
      IF 9 == SWAP 10 == OR
      THEN 8
      END
    END
  \>>
\>>