A Novel Algorithm for the Coupling Control in Solid Phase Peptide Synthesis