diff --git a/scripts/v7/ch4-02-ip-prefix-slicer.rsc b/scripts/v7/ch4-02-ip-prefix-slicer.rsc
new file mode 100644
index 0000000..85df49c
--- /dev/null
+++ b/scripts/v7/ch4-02-ip-prefix-slicer.rsc
@@ -0,0 +1,14 @@
+# ch4-02-ip-prefix-slicer.rsc
+
+# Create a function to slice up an IP prefix
+:global IpPrefixSlicerFunc do={
+	:local InterfaceIp ([/ip/address get $1]->"address");
+	:local SlashPosition [:find $InterfaceIp "/"];
+	:local IpAddress [:pick $InterfaceIp 0 $SlashPosition];
+	:return [:toip $IpAddress]
+}
+
+# Run the function for ID *1 and verify data type of result
+:local IpAddress [$IpPrefixSlicerFunc *1];
+:put ("Result: $IpAddress");
+:put ("Data type: " . [:typeof $IpAddress]);
\ No newline at end of file