%%HP: T(3)A(R)F(.);

\<<
    2 / DUP CEIL 4 + SWAP                
  WHILE DUP 7 \>= REPEAT                
    FLOOR 2 / ROT ROT                   
    IF DUP2 PICK > THEN                 
      3 PICK CEIL -                     
    ELSE                                
      3 PICK CEIL +                     
    END
    ROT                                 
  END
  FLOOR + 1 -                           
  WHILE DUP2 PICK > REPEAT              
    1 -                                
  END                                   
\>>