/* 

  Remove vowels from a string in Picat.

  http://rosettacode.org/wiki/Remove_vowels_from_a_string
  """
  Remove vowels from a string 
  """
  This program was created by Hakan Kjellerstrand, hakank@gmail.com
  See also my Picat page: http://www.hakank.org/picat/

*/


main => go.

go =>
  println("The Quick Brown Fox Jumped Over the Lazy Dog's Back".no_vowels),
  println("Picat programming language".no_vowels).

no_vowels(S) = [C : C in S, not membchk(C,"AEIOUaeiou")].