hpf~.pd

#N canvas 0 39 612 701 10;
#X obj 22 -8 inlet~;
#X obj 100 -8 inlet;
#X obj 21 112 outlet~;
#X obj 21 82 /~ 2;
#X obj 40 22 allpass1~;
#X obj 21 51 -~;
#X text 19 -36 First order highpass filter;
#X connect 0 0 4 0;
#X connect 0 0 5 0;
#X connect 1 0 4 1;
#X connect 3 0 2 0;
#X connect 4 0 5 1;
#X connect 5 0 3 0;