11 lines
		
	
	
		
			344 B
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
		
		
			
		
	
	
			11 lines
		
	
	
		
			344 B
		
	
	
	
		
			Plaintext
		
	
	
	
	
	
| 
								 | 
							
								(defn simple-conversation []
							 | 
						||
| 
								 | 
							
								   (print "Hello!  I'd like to get to know you.  Tell me about yourself!")
							 | 
						||
| 
								 | 
							
								   (setv name (input "What is your name? "))
							 | 
						||
| 
								 | 
							
								   (let [age (input "What is your age? ")]
							 | 
						||
| 
								 | 
							
								     (if (and age
							 | 
						||
| 
								 | 
							
								              name)
							 | 
						||
| 
								 | 
							
								       (print (+ "Hello " name "!  I see you are "
							 | 
						||
| 
								 | 
							
								                 age " years old.")))))
							 | 
						||
| 
								 | 
							
								
							 | 
						||
| 
								 | 
							
								(simple-conversation)
							 |