.PS
cct_init

# Usual defs...
qrt=dimen_/4;
hlf=dimen_/2;
dim=dimen_;

linethick_(2)
d=dim/2
line up_ d
move up_ d/2
line up_ d
move up_ d/2
line up_ d
move up_ d/2
line up_ d
move to (0,d/2)
linethick_() 

for i = 0 to 3 do{
  move to (0,d/2 + i*3/2*d)
  line left_ d 
  box wid d ht d/2 with .e at Here "$\phi$"
  line left_ d
}  

box wid 2*d ht 5.5*d with .ne at Here+(0,d/2) "\parbox{1em}{\begin{sideways}Power Splitter\end{sideways}}"
line left_ d from last box.w

"\tiny PowerSplit" at (-qrt,-hlf)
.PE