f a =
 c
 where
 c
 = "b", if a == "a"
 = "", otherwise

d:: num->char->[char]
d 0 c = []
d n c = c:d (n-1) c

dx = d 4 ' ' ++ d 5 '*'