#! /usr/bin/gawk -f
# Last edited on 2026-01-07 18:25:27 by stolfi

//{ 
  gsub(/[z]/, "f", $2);  gsub(/[Z]/, "F", $2); 
  gsub(/[w]/, "p", $2);  gsub(/[W]/, "P", $2); 
  print;
}