s=$(STDIN)
p1=P
p3=PPP
p10=PPPPPPPPPP
1=$(info $(subst p,$(p$s),$(subst q,$(subst P, ,$(p$s)),$p)))
3=$1$1$1
10=$3$3$3$1
$(foreach p,ppp pqqp ppp p p,$($s))