13 lines
		
	
	
		
			398 B
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
			
		
		
	
	
			13 lines
		
	
	
		
			398 B
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
/* I like a teacher who gives you something to take
 | 
						|
   home to think about besides homework. */
 | 
						|
let gpa_score = 5.0;
 | 
						|
type schoolPerson = Teacher | Director | Student(string);
 | 
						|
 | 
						|
let greeting = person =>
 | 
						|
  switch (person) {
 | 
						|
  | Teacher => "Hey Professor!"
 | 
						|
  | Director => "Hello Director."
 | 
						|
  | Student("Richard") => "Still here Ricky?"
 | 
						|
  | Student(anyOtherName) => "Hey, " ++ anyOtherName ++ "."
 | 
						|
  };
 |