%%HP: T(1)A(G)F(.);
 I2 PRAX1 {
":Nudo Coaccionado:
:   Direccin ():"
19 } INPUT OBJ
EVAL SWAP EVAL SWAP
 K 
   K +  + 'HA' 2
K * 1 - D 1 GET I2
+ 2 LIST  COS PUT
'HA' 2 K * D 1 GET
I2 + 2 LIST  SIN
PUT
  

