word(astante,  a,s,t,a,n,t,e).
word(astoria,  a,s,t,o,r,i,a).
word(baratto,  b,a,r,a,t,t,o).
word(cobalto,  c,o,b,a,l,t,o).
word(pistola,  p,i,s,t,o,l,a).
word(statale,  s,t,a,t,a,l,e).

crossword(V1, V2, V3, H1, H2, H3) :-
  word(V1, _, A, _, _, _, _, _) = word(H1, _, A, _, _, _, _, _),
  word(V1, _, _, _, B, _, _, _) = word(H2, _, B, _, _, _, _, _),
  word(V1, _, _, _, _, _, C, _) = word(H3, _, C, _, _, _, _, _),
  word(V2, _, D, _, _, _, _, _) = word(H1, _, _, _, D, _, _, _),
  word(V2, _, _, _, E, _, _, _) = word(H2, _, _, _, E, _, _, _),
  word(V2, _, _, _, _, _, F, _) = word(H3, _, _, _, F, _, _, _),
  word(V3, _, G, _, _, _, _, _) = word(H1, _, _, _, _, _, G, _),
  word(V3, _, _, _, H, _, _, _) = word(H2, _, _, _, _, _, H, _),
  word(V3, _, _, _, _, _, I, _) = word(H3, _, _, _, _, _, I, _).