17 lines
430 B
Raku
17 lines
430 B
Raku
#!/usr/local/bin/perl
|
|
|
|
@quotation = <STDIN>;
|
|
$quotation = join("", @quotation);
|
|
$~ = "QUOTATION";
|
|
write;
|
|
|
|
format QUOTATION =
|
|
Quotation for the day:
|
|
-----------------------------
|
|
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
|
|
$quotation
|
|
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
|
|
$quotation
|
|
^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
|
|
$quotation
|
|
----------------------------- |