این مثال هم مانند قبلی ها بسیار ساده است، چهار مقدار ورودی می‌گیرد و یک عبارت چاپ می‌کند. برخلاف مثال قبل از trim استفاده نکردم. trim کارکترهای خالی مانند تب و اینتر را از ابتدا و انتهای ورودی حذف می‌کند که شاید خیلی دقیق نباشد زیرا ما تنها می‌خواهیم کارکتر خط جدید را از انتها حذف کنیم، برای همین از تابع دیگری استفاده کردم. نکته دیگر استفاده از export_all است که البته صرفا برای تست مناسب است.
-module(ex4). -compile(export_all). main() -> Noun = string:strip(io:get_line("Enter a noun:"),right,$\n), Verb = string:strip(io:get_line("Enter a verb:"),right,$\n), Adjective = string:strip(io:get_line("Enter an adjective:"),right,$\n), Adverb = string:strip(io:get_line("Enter an adverb: "),right,$\n), io:fwrite("Do you ~s your ~s ~s ~s? That's hilarious!~n",[Verb, Adjective, Noun, Adverb]).